home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib09.dsk / INITIA DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  737b  |  18 lines
  1. 10  REM  INITIA.DEMO
  2. 20  POKE 1013,76: POKE 1014,0: POKE 1015,3: REM  INITIALIZATION OF AMPERSAND '&'
  3. 30  TEXT : HOME : PRINT  CHR$(4)"BLOAD INITIA"
  4. 40  VTAB 2: PRINT  TAB( 6);"ARRAYS BEFORE INITIALIZATION": PRINT 
  5. 50 I$ = "AFTER ":G% = 15:D = 99.999
  6. 60  DIM A$(3),B%(3),C(3)
  7. 70  FOR I = 0 TO 3:A$(I) = "BEFORE ":B%(I) = I +1:C(I) = I *10.78: NEXT I
  8. 80  GOSUB 160
  9. 90  PRINT  TAB( 2);"ARRAYS AFTER ZERO/NULL INITIALIZATION": PRINT 
  10. 100  & Z(A$,B%,C)
  11. 110  GOSUB 160
  12. 120  PRINT  TAB( 7)"ARRAYS AFTER INITIALIZATION": PRINT  TAB( 8);"WITH CHARACTERISTIC VALUE": PRINT 
  13. 130  & V((I$),A$/(G%),B%/(D),C)
  14. 140  GOSUB 160
  15. 150  END 
  16. 160  FOR I = 0 TO 3: PRINT "A$(";I;")=";A$(I);"B%(";I;")=";B%(I);" C(";I;")=";C(I)
  17. 170  NEXT I: PRINT 
  18. 180  RETURN